home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / math / mathX060b.lha / mathX / mathX-Install < prev    next >
Encoding:
Text File  |  1996-08-16  |  10.4 KB  |  289 lines
  1. ;  *********************************************************
  2. ;
  3. ;                Installation script for mathX
  4. ;                Copyright 1996 by Kai Nickel
  5. ;                Last change: 1996-08-16
  6. ;
  7. ;  *********************************************************
  8.  
  9. (complete 0)
  10.  
  11. ;
  12. ; ***** Ask language
  13. ;
  14.  
  15. (set lang
  16.   (askchoice (prompt  "Select your preferred Language:\nWählen Sie ihre bevorzugte Sprache:\n")
  17.              (help    "Select your preferred language for the documentation and the further installation.\n\nWählen Sie hier Ihre bevorzugte Sprache für die Dokumentation und die weitere Installation.")
  18.              (choices "english" "deutsch")
  19.              (default 0)
  20.   )
  21. )
  22.  
  23. (complete 10)
  24.  
  25.  
  26. ;
  27. ; ***** Define strings
  28. ;
  29.  
  30. (if (= lang 0)
  31.   (
  32.     (set MSG_OLDOS        "It looks like you are using OS 1.3 or lower. But mathX needs Kickstart 2.0 or higher! You should seriously consider to buy OS 3.1.\n")
  33.     (set MSG_OLDMUI       "Your MUI-System seems to be too old for mathX and needs to be updated. mathX needs at least MUI 3 to work.\nYou can install mathX now but it will not work before updating MUI.\n")
  34.     (set MSG_NOMUI        "Seems like MUI is not installed!\nmathX needs MUI 3 or higher. You can continue the installation but keep in mind, that mathX will not work before you also installed MUI.\n")
  35.     (set MSG_PATH         "Choose the path where the new drawer 'mathX' should be created or already is (in case of an update)")
  36.     (set MSG_PATH_HELP    "\nAbout 360KB will be needed for the installation.\nIn the choosen path a new directory called 'mathX' will be created, in which mathX and the other files will be copied.\nYou also may create a new drawer via 'Make New Drawer' before.\n\nIn case of an update the new files will be just copied over the old ones.\n")
  37.     (set MSG_MAIN         "Install the main program 'mathX'")
  38.     (set MSG_MAIN_HELP    "The main program of mathX.\n")
  39.     (set MSG_GUIDE        "Install the documentation files")
  40.     (set MSG_GUIDE_HELP   "Those are the documentation files and online-help for mathX.\nThey must be placed into the 'Docs' directory of the mathX drawer.\n")
  41.     (set NAME_GUIDE       "Docs/English/")
  42.     (set MSG_CATDIR       "Directories have to be created for the mathX.catalog.")
  43.     (set MSG_CAT          "Install the mathX.catalog of the selected language")
  44.     (set MSG_CAT_HELP     "This mathX.catalog contains all the program texts in the selected language.\nIf you don't install it you have to use the builtin english language.\n")
  45.     (set MSG_DATA         "Install default graph settings and term examples")
  46.     (set MSG_DATA_HELP    "These are some predefined graph settings and term examples for educational purposes.\n")
  47.     (set MSG_REXX         "Install ARexx scripts")
  48.     (set MSG_REXX_HELP    "mathX contains some ARexx scripts especially to communicate with the program 'MathScript'.\n")
  49.     (set MSG_ICONS        "What icons do you want?")
  50.     (set MSG_ICONS_HELP   "For all installed mathX files exist icons in MagicWB-style, both regular and small\nIf you do not have MagicWB, you also should not install these icons.\n(MagicWB is a Workbench enhancment by Martin Huttenloher.)")
  51.     (set MSG_ICON         "Installing a MagicWB-icon")
  52.     (set MSG_ENDNOTE      "To start mathX just double click the main-program 'mathX'.\n\nIf you want to get rid of mathX just delete its drawer.")
  53.   )
  54.   (
  55.     (set MSG_OLDOS        "Es sieht so aus, als ob sie OS 1.3 oder kleiner benutzen. mathX läuft aber erst ab OS 2.0.\nSie sollten sich überlegen, OS 3.1 anzuschaffen!\n")
  56.     (set MSG_OLDMUI       "Ihr MUI-System scheint zu alt zu sein und muß upgedated werden. mathX benötigt mindestens MUI 3.\n Sie können mathX jetzt installieren aber es wird nicht laufen, bevor MUI upgedated wird.\n")
  57.     (set MSG_NOMUI        "Sie scheinen kein MUI installiert zu haben.\nmathX benötigt aber MUI in der Version 3 oder höher. Sie können mit der Installation fortfahren, aber mathX wird nicht laufen, bevor MUI nicht installiert wurde.\n")
  58.     (set MSG_PATH         "Wählen Sie den Pfad, in dem das Verzeichnis 'mathX' erzeugt werden soll, oder im Falle eines Updates bereits ist")
  59.     (set MSG_PATH_HELP    "\nEs werden etwa 360KB für die Installation benötigt.\nIm gewählten Pfad wird ein neues Verzeichnis namens 'mathX' erzeugt, in das mathX und die zugehörigen Dateien kopiert werden.\nSie können mit 'Make New Drawer' auch zuerst ein neues Verzeichnis erstellen.\n\nFalls Sie eine ältere Version von mathX updaten wollen, werden einfach die neueren Dateien über die älteren kopiert.\n")
  60.     (set MSG_MAIN         "Installieren des Hauptprogramms 'mathX'")
  61.     (set MSG_MAIN_HELP    "Das Hauptprogramm von mathX.\n")
  62.     (set MSG_GUIDE        "Installieren der Dokumentationsdateien")
  63.     (set MSG_GUIDE_HELP   "Dies sind die Dokumentationsdateien und gleichzeitig Online-Hilfe für mathX.\nSie müssen deshalb in das Unterverzeichnis 'Docs' des mathX Verzeichnisses.\n")
  64.     (set NAME_GUIDE       "Docs/Deutsch/")
  65.     (set NAME_CATDEST     "Catalogs/Deutsch")
  66.     (set MSG_CATDIR       "Es müssen Verzeichnisse für den Katalog erzeugt werden.")
  67.     (set MSG_CAT          "Installiere den mathX.catalog der ausgewählten Sprache")
  68.     (set MSG_CAT_HELP     "Dieser mathX.catalog enthält alle Programmtexte in der ausgewählten Sprache.\nWenn Sie ihn nicht installieren, müssen sie die eingebaute englische Sprache benutzen.\n")
  69.     (set MSG_DATA         "Installiere Standard-Grapheinstellungen und Beispielterme")
  70.     (set MSG_DATA_HELP    "Einige Grapheinstellungen und Terme zur geistigen Erbauung.")
  71.     (set MSG_REXX         "Installiere ARexx Skripts")
  72.     (set MSG_REXX_HELP    "mathX liegen ein paar ARexx-Skripts bei, die den eingebauten ARexx-Port demonstrieren und insbesondere mit dem Programm MathScript kommunizieren können.\n")
  73.     (set MSG_ICONS        "Was für Icons möchten Sie?")
  74.     (set MSG_ICONS_HELP   "Für die installierten mathX Files stehen Icons im MagicWB-Stil zur Verfügung, in normaler als auch in halber Höhe.\nWenn sie kein MagicWB installiert haben, sollten sie diese Icons auch nicht verwenden.\n(MagicWB ist eine Workbench-Erweiterung von Martin Huttenloher.)")
  75.     (set MSG_ICON         "Kopieren eines Icons")
  76.     (set MSG_ENDNOTE      "Gestartet wird mathX durch Doppelklick auf das Hauptprogramm 'mathX'.\n\nUm mathX wieder loszuwerden, löscht man einfach sein Verzeichnis.")
  77.   )
  78. )
  79.  
  80.  
  81. ;
  82. ; ***** Check OS and MUI
  83. ;
  84.  
  85. (set OSVersion (/ (getversion) 65536))
  86. (if (< OSVersion 36)
  87.   (message MSG_OLDOS)
  88. )
  89. (set MUIVersion 11)
  90. (if (exists ("Libs:muimaster.library"))
  91.   (set dummy 0)         ; if part
  92.   (message MSG_NOMUI)   ; else part
  93. )
  94.  
  95.  
  96. ;
  97. ; ***** Ask for and create path
  98. ;
  99.  
  100. (set destination
  101.   (askdir (prompt  MSG_PATH)
  102.           (help    MSG_PATH_HELP)
  103.           (default @default-dest)
  104.   )
  105. )
  106.  
  107. (set destination (tackon destination "mathX"))
  108. (set @default-dest destination)
  109. (complete 20)
  110.  
  111.  
  112. ;
  113. ; ***** Ask for icons
  114. ;
  115.  
  116. (set icons
  117.   (askchoice (prompt  MSG_ICONS)
  118.              (help    MSG_ICONS_HELP)
  119.              (choices "Standard" "MagicWB" "MagicWB (small)")
  120.              (default 0)
  121.   )
  122. )
  123.  
  124.  
  125. ;
  126. ; ***** Copy main program
  127. ;
  128.  
  129. (copyfiles (prompt MSG_MAIN)
  130.            (help   MSG_MAIN_HELP)
  131.            (source "mathX")
  132.            (dest   destination)
  133.            (confirm)
  134.            (infos)
  135. )
  136. (complete 30)
  137.  
  138.  
  139. ;
  140. ; ***** Copy documentation
  141. ;
  142.  
  143. (copyfiles (prompt MSG_GUIDE)
  144.            (help   MSG_GUIDE_HELP)
  145.            (source NAME_GUIDE)
  146.            (dest   (tackon destination "Docs"))
  147.            (confirm)
  148.            (all)
  149.            (infos)
  150. )
  151. (complete 50)
  152.  
  153.  
  154. ;
  155. ; ***** Copy catalog
  156. ;
  157.  
  158. (if (> lang 0)
  159.   (
  160.     ; this makedir refused to be eliminated...
  161.     (makedir (prompt MSG_CATDIR)
  162.              (help   @makedir-help)
  163.              (tackon destination "Catalogs")
  164.              (confirm)
  165.              (infos)
  166.     )
  167.     (copyfiles (prompt MSG_CAT)
  168.                (help   MSG_CAT_HELP)
  169.                (source (tackon NAME_CATDEST "mathX.catalog"))
  170.                (dest   (tackon destination  NAME_CATDEST))
  171.                (confirm)
  172.     )
  173.   )
  174. )
  175. (complete 70)
  176.  
  177.  
  178. ;
  179. ; ***** Copy examples
  180. ;
  181.  
  182. (copyfiles (prompt MSG_DATA)
  183.            (help   MSG_DATA_HELP)
  184.            (source "Data/")
  185.            (dest   (tackon destination "Data"))
  186.            (confirm)
  187.            (infos)
  188.            (all)
  189. )
  190. (complete 80)
  191.  
  192.  
  193. ;
  194. ; ***** Copy ARexx scripts
  195. ;
  196.  
  197. (copyfiles (prompt MSG_REXX)
  198.            (help   MSG_REXX_HELP)
  199.            (source "Rexx/")
  200.            (dest   (tackon destination "Rexx"))
  201.            (confirm)
  202.            (infos)
  203.            (all)
  204. )
  205. (complete 90)
  206.  
  207.  
  208. ;
  209. ; ***** Copy MWB icons
  210. ;
  211.  
  212. (if (= icons 1)
  213.   (
  214.     (copyfiles (prompt MSG_ICON)
  215.                (source "Icons/MagicWB/mathX.info")
  216.                (dest   destination)
  217.     )
  218.     (copyfiles (prompt MSG_ICON)
  219.                (source "Icons/MagicWB/Docs.info")
  220.                (dest   destination)
  221.     )
  222.     (copyfiles (prompt MSG_ICON)
  223.                (source "Icons/MagicWB/Data.info")
  224.                (dest   destination)
  225.     )
  226.     (copyfiles (prompt MSG_ICON)
  227.                (source "Icons/MagicWB/Rexx.info")
  228.                (dest   destination)
  229.     )
  230.     (copyfiles (prompt  MSG_ICON)
  231.                (source  "Icons/MagicWB/Docs/")
  232.                (dest    (tackon destination "Docs"))
  233.                (pattern "#?.info")
  234.     )
  235.     (if (> lang 0)
  236.       (copyfiles (prompt MSG_ICON)
  237.                  (source "Icons/MagicWB/Catalogs.info")
  238.                  (dest   destination)
  239.       )
  240.     )
  241.     (run (cat "copy " "Icons/MagicWB/Drawer.info \"" destination ".info\""))
  242.   )
  243. )
  244.  
  245. ;
  246. ; ***** Copy small MWB icons
  247. ;
  248.  
  249. (if (= icons 2)
  250.   (
  251.     (copyfiles (prompt MSG_ICON)
  252.                (source "Icons/MagicWB_Small/mathX.info")
  253.                (dest   destination)
  254.     )
  255.     (copyfiles (prompt MSG_ICON)
  256.                (source "Icons/MagicWB_Small/Docs.info")
  257.                (dest   destination)
  258.     )
  259.     (copyfiles (prompt MSG_ICON)
  260.                (source "Icons/MagicWB_Small/Data.info")
  261.                (dest   destination)
  262.     )
  263.     (copyfiles (prompt MSG_ICON)
  264.                (source "Icons/MagicWB_Small/Rexx.info")
  265.                (dest   destination)
  266.     )
  267.     (copyfiles (prompt  MSG_ICON)
  268.                (source  "Icons/MagicWB_Small/Docs/")
  269.                (dest    (tackon destination "Docs"))
  270.                (pattern "#?.info")
  271.     )
  272.     (if (> lang 0)
  273.       (copyfiles (prompt MSG_ICON)
  274.                  (source "Icons/MagicWB_Small/Catalogs.info")
  275.                  (dest   destination)
  276.       )
  277.     )
  278.     (run (cat "copy " "Icons/MagicWB_Small/Drawer.info \"" destination ".info\""))
  279.   )
  280. )
  281.  
  282.  
  283. ;
  284. ; ***** End installation
  285. ;
  286.  
  287. (complete 100)
  288. (exit MSG_ENDNOTE)
  289.